home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
os2
/
famtree
/
anndeath.ftx
< prev
next >
Wrap
Text File
|
1996-05-20
|
2KB
|
76 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
< This script shows the anniversaries of death in this year
/ Dieses Skript zeigt die Todestage in diesem Jahr.>
*/
/* ----------------------- Params / Parameter ------------------- */
datewidth=14
namewidth=datewidth+30
IF getLanguage()='Deutsch' THEN DO
header = 'Todestage. (naechster Jahrestag). Heute ist der '
END
ELSE DO
header = 'Anniversary of Death (next anniversary). Today is '
END
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
SAY(header||DATE())
SAY(................................................)
/* ------------------------------ Output / Ausgabe ----------------- */
/* Sort Persons by Death Month,Day / Menschen sortieren nach Todesmonat,Tag */
rc=sortPersons('DM,DD')
/* Calculate actual year / aktuelles Jahr berechnen */
thisyear=WORD(DATE(),3)
/* Display persons in tree / Menschen ausgeben */
rc=selectPerson('F')
DO UNTIL rc=0
/* Get month of Death / berechne Monat des Todes */
result=getDeathDate('m')
/* Check if we've got a month / nachpruefen ob wir Monat haben */
IF result<>'?' THEN DO
/* Get Day of Death / berechne Todestag */
day=getDeathDate('D')
if day<>0 THEN
result=result||' '||day
result=LEFT(result,datewidth)
/* Add name,first name / plus Name,Vorname */
result=result||getName()||','||getFirstName()
result=LEFT(result,namewidth)
/* Add anniversary / plus Jahrestag */
year=getDeathDate('Y')
IF year<>0 THEN
result=result||' ('||thisyear-year||')'
/* output / Ausgabe */
SAY(result)
END
/* Next one */
rc=selectPerson('N')
END
/* Done */
RETURN